home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Mousetools / FollowMouse / FollowMouse.p < prev    next >
Text File  |  1996-09-26  |  20KB  |  609 lines
  1. {
  2.  FollowMouse.p Copyright © Kamran Karimi. Shows a pair of small blinking
  3.  eyes. Compiled using  Maxon KickPascal on an A500
  4. } 
  5.  
  6. Program FollowMouse;
  7.  
  8. uses Intuition;
  9.  
  10.  
  11. Type
  12.   Plane = Array[1..39] of Word;     { 3*13 = 39;place for the images }
  13.  
  14.   label EndIt;
  15.  
  16. Var
  17.   bool: Boolean;
  18.   x1,y1,Old,R,count,CurCoOrd,CurImage,SameImage,PrevCoOrd :integer;
  19.   Sec1,Mic1,Sec2,Mic2 : Long;
  20.   x,add,Ang,Mx,My :real;
  21.   Wind :NewWindow;
  22.   Rast :^RastPort;
  23.   Win :^Window;
  24.   Mes1,Mes2 :^IntuiMessage;
  25.   PRG,Name :IntuiText;
  26.   ImSquaint,ImStraight,ImDown,ImUp,ImLeft,ImRight,ImRU,ImRD,ImLU,
  27.                                    ImLD,ImF1,ImF2,ImF3,ImF4 :Image;
  28.   Down,Up,Left,Right,RU,RD,LU,LD,Squaint,Straight,F1,F2,F3,F4 :^Plane;
  29.  
  30. Procedure Initialize;
  31.  begin
  32.  
  33.   {initializing the images: }
  34.  
  35.  
  36.   Straight^ :=Plane(
  37.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  38.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  39.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  40.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  41.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  42.   %0000111111000011 ,%1111000000001111 ,%1100001111110000,
  43.   %0000111110000001 ,%1111000000001111 ,%1000000111110000,
  44.   %0000111111000011 ,%1111000000001111 ,%1100001111110000,
  45.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  46.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  47.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  48.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  49.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  50.  
  51.   Down^ :=Plane(
  52.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  53.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  54.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  55.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  56.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  57.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  58.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  59.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  60.   %0000011111000011 ,%1110000000000111 ,%1100001111100000,
  61.   %0000001110000001 ,%1100000000000011 ,%1000000111000000,
  62.   %0000000111000011 ,%1000000000000001 ,%1100001110000000,
  63.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  64.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  65.  
  66.   Up^ := Plane(
  67.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  68.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  69.   %0000000111000011 ,%1000000000000001 ,%1100001110000000,
  70.   %0000001110000001 ,%1100000000000011 ,%1000000111000000,
  71.   %0000011111000011 ,%1110000000000111 ,%1100001111100000,
  72.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  73.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  74.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  75.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  76.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  77.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  78.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  79.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  80.  
  81.   Left^ :=Plane(
  82.   %0000000000000000 ,%0000000000000000,%0000000000000000,
  83.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  84.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  85.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  86.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  87.   %0000110000111111 ,%1111000000001100 ,%0011111111110000,
  88.   %0000100000011111 ,%1111000000001000 ,%0001111111110000,
  89.   %0000110000111111 ,%1111000000001100 ,%0011111111110000,
  90.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  91.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  92.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  93.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  94.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  95.  
  96.   Right^ :=Plane(
  97.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  98.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  99.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  100.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  101.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  102.   %0000111111111100 ,%0011000000001111 ,%1111110000110000,
  103.   %0000111111111000 ,%0001000000001111 ,%1111100000010000,
  104.   %0000111111111100 ,%0011000000001111 ,%1111110000110000,
  105.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  106.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  107.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  108.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  109.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  110.  
  111.   LD^ :=Plane(
  112.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  113.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  114.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  115.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  116.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  117.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  118.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  119.   %0000111000011111 ,%1111000000001110 ,%0001111111110000,
  120.   %0000010000001111 ,%1110000000000100 ,%0000111111100000,
  121.   %0000001000011111 ,%1100000000000010 ,%0001111111000000,
  122.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  123.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  124.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  125.  
  126.   RD^ :=Plane(
  127.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  128.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  129.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  130.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  131.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  132.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  133.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  134.   %0000111111111000 ,%0111000000001111 ,%1111100001110000,
  135.   %0000011111110000 ,%0010000000000111 ,%1111000000100000,
  136.   %0000001111111000 ,%0100000000000011 ,%1111100001000000,
  137.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  138.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  139.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  140.  
  141.   RU^ :=Plane(
  142.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  143.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  144.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  145.   %0000001111111000 ,%0100000000000011 ,%1111100001000000,
  146.   %0000011111110000 ,%0010000000000111 ,%1111000000100000,
  147.   %0000111111111000 ,%0111000000001111 ,%1111100001110000,
  148.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  149.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  150.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  151.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  152.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  153.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  154.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  155.  
  156.   LU^ :=Plane(
  157.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  158.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  159.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  160.   %0000001000011111 ,%1100000000000010 ,%0001111111000000,
  161.   %0000010000001111 ,%1110000000000100 ,%0000111111100000,
  162.   %0000111000011111 ,%1111000000001110 ,%0001111111110000,
  163.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  164.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  165.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  166.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  167.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  168.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  169.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  170.  
  171.   Squaint^ :=Plane(
  172.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  173.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  174.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  175.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  176.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  177.   %0000111111111100 ,%0011000000000100 ,%0011111111110000,
  178.   %0000111111111000 ,%0001000000001000 ,%0001111111110000,
  179.   %0000111111111100 ,%0011000000001100 ,%0011111111110000,
  180.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  181.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  182.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  183.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  184.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  185.  
  186.  
  187.  F1^ :=Plane(
  188.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  189.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  190.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  191.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  192.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  193.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  194.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  195.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  196.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  197.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  198.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  199.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  200.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  201.  
  202.  F2^ :=Plane(
  203.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  204.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  205.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  206.   %0000001110000001 ,%1100000000000011 ,%1000000111000000,
  207.   %0000010001111110 ,%0010000000000100 ,%0111111000100000,
  208.   %0000101111111111 ,%1101000000001011 ,%1111111111010000,
  209.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  210.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  211.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  212.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  213.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  214.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  215.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  216.  
  217.  F3^ :=Plane(
  218.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  219.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  220.   %0000000011111111 ,%1000000000000001 ,%1111111110000000,
  221.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  222.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  223.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  224.   %0000100000000000 ,%0001000000001000 ,%0000000000010000,
  225.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  226.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  227.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  228.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  229.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  230.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  231.  
  232.  F4^ :=Plane(
  233.   %0000000000000000 ,%0000000000000000 ,%0000000000000000,
  234.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  235.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  236.   %0000001111111111 ,%1100000000000011 ,%1111111111000000,
  237.   %0000011111111111 ,%1110000000000111 ,%1111111111100000,
  238.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  239.   %0000111111111111 ,%1111000000001111 ,%1111111111110000,
  240.   %0000101111111111 ,%1101000000001011 ,%1111111111010000,
  241.   %0000010001111110 ,%0010000000000100 ,%0111111000100000,
  242.   %0000001110000001 ,%1100000000000011 ,%1000000111000000,
  243.   %0000000111111111 ,%1000000000000001 ,%1111111110000000,
  244.   %0000000000111100 ,%0000000000000000 ,%0011110000000000,
  245.   %0000000000000000 ,%0000000000000000 ,%0000000000000000 );
  246.  
  247.  
  248.   { Image-Structure }
  249.   ImStraight:=Image(1,1,
  250.              48,      { width }
  251.              13,      { hight }
  252.              1,       { one Plane }
  253.              Straight,     { data }
  254.              1,0,
  255.              Nil);    { no further Images }
  256.  
  257.   ImDown:=Image(1,1,
  258.              48,     
  259.              13,     
  260.              1,      
  261.              Down,   
  262.              1,0,
  263.              Nil);   
  264.  
  265.   ImUp:=Image(1,1,
  266.              48,
  267.              13,
  268.              1,
  269.              Up,
  270.              1,0,
  271.              Nil);
  272.  
  273.   ImRight:=Image(1,1,
  274.              48,
  275.              13,
  276.              1,
  277.              Right,
  278.              1,0,
  279.              Nil);
  280.  
  281.   ImLeft:=Image(1,1,
  282.              48,
  283.              13,
  284.              1,
  285.              Left,
  286.              1,0,
  287.              Nil);
  288.  
  289.   ImRU:=Image(1,1,
  290.              48,
  291.              13,
  292.              1,
  293.              RU,
  294.              1,0,
  295.              Nil);
  296.  
  297.   ImRD:=Image(1,1,
  298.              48,
  299.              13,
  300.              1,
  301.              RD,
  302.              1,0,
  303.              Nil);
  304.  
  305.   ImLU:=Image(1,1,
  306.              48,
  307.              13,
  308.              1,
  309.              LU,
  310.              1,0,
  311.              Nil);
  312.  
  313.   ImLD:=Image(1,1,
  314.              48,
  315.              13,
  316.              1,
  317.              LD,
  318.              1,0,
  319.              Nil);
  320.  
  321.   ImSquaint:=Image(1,1,
  322.              48,
  323.              13,
  324.              1,
  325.              Squaint,
  326.              1,0,
  327.              Nil);
  328.  
  329.   ImF1:=Image(1,1,
  330.              48,
  331.              13,
  332.              1,
  333.              F1,
  334.              1,0,
  335.              Nil);
  336.  
  337.   ImF2:=Image(1,1,
  338.              48,
  339.              13,
  340.              1,
  341.              F2,
  342.              1,0,
  343.              Nil);
  344.  
  345.   ImF3:=Image(1,1,
  346.              48,
  347.              13,
  348.              1,
  349.              F3,
  350.              1,0,
  351.              Nil);
  352.  
  353.   ImF4:=Image(1,1,
  354.              48,
  355.              13,
  356.              1,
  357.              F4,
  358.              1,0,
  359.              Nil);
  360.  end;
  361.  
  362.  
  363. Function FindWhere : integer;
  364.  begin
  365.   Mx :=Win^.MouseX;
  366.   Mx :=Mx-25;        {bring it to...(50 div 2 = 25)}
  367.   My :=Win^.MouseY;
  368.   My :=My-6;             {...the center of the window.(13 div 2 = 6)}
  369.   if My<0 then add:=90
  370.    else add:=270;    {these additions are necessary to gain a 'Normal' angel}
  371.         {any body who wants to know more can print the Tan(Mx/My) for some
  372.                                                                    Mx and My}
  373.   if My=0 then My:=1; {avoid division by zero}
  374.  
  375.   x:=Mx/My;             {now w'll take the Tan(Mx/My) by the Taylor method}
  376.   if abs(x)<1 then
  377.    Ang:=x-x*x*x/3+x*x*x*x*x/5
  378.   else if x>=1 then
  379.    Ang:=3.14/2-1/x+1/(3*x*x*x)
  380.   else Ang:=-3.14/2-1/x+1/(3*x*x*x);
  381.  
  382.   Ang:=Ang*180/3.14; {convert it to degrees}
  383.   Ang :=Ang+add;
  384.  
  385.            {now we'll decide which image to show}
  386.   CurCoOrd := round(Mx + My);
  387.   if (abs(Mx)<12) and (abs(My)<9) then begin
  388.    FindWhere := 0;
  389.    exit;
  390.    end;
  391.  
  392.   if (Ang > 5) and (Ang < 175) then begin
  393.    if (Ang < 75) then begin
  394.     FindWhere := 1;
  395.     exit;
  396.     end;
  397.    if (Ang > 105) then begin
  398.     FindWhere := 2;
  399.     exit;
  400.     end;
  401.     FindWhere := 3;
  402.     exit;
  403.   end;
  404.  
  405.   if (Ang >175) and (Ang <185) then begin
  406.    FindWhere := 4;
  407.    exit;
  408.    end;
  409.   if (Ang > 185) and (Ang <255) then begin
  410.    FindWhere := 5;
  411.    exit;
  412.    end;
  413.   if (Ang >255) and (Ang <285) then begin
  414.    FindWhere := 6;
  415.    exit;
  416.    end;
  417.   if (Ang >285) and (Ang <355) then begin
  418.    FindWhere := 7;
  419.    exit;
  420.    end;
  421.   FindWhere := 8;
  422. end;
  423.  
  424. Procedure ShowImage;
  425.  begin
  426.   case CurImage of
  427.    0: DrawImage(Rast,^ImSquaint, 0, 0);
  428.    1: DrawImage(Rast, ^ImRU, 0, 0);
  429.    2: DrawImage(Rast,^ImLU, 0, 0);
  430.    3: DrawImage(Rast,^ImUp, 0, 0);
  431.    4: DrawImage(Rast,^ImLeft, 0, 0);
  432.    5: DrawImage(Rast,^ImLD, 0, 0);
  433.    6: DrawImage(Rast,^ImDown, 0, 0);
  434.    7: DrawImage(Rast,^ImRD, 0, 0);
  435.    8: DrawImage(Rast,^ImRight, 0, 0);
  436.   end;
  437. end;
  438.  
  439. Procedure Blink;
  440.  begin
  441.   DrawImage(Rast,^ImF1, 0, 0);
  442.   Delay(1);
  443.   DrawImage(Rast,^ImF2, 0, 0);
  444.   Delay(1);
  445.   DrawImage(Rast,^ImF3, 0, 0);
  446.   Delay(1);
  447.   DrawImage(Rast,^ImF4, 0, 0);
  448.   Delay(1);
  449.   DrawImage(Rast,^ImF1, 0, 0);
  450.   Delay(12);
  451.   DrawImage(Rast,^ImF4, 0, 0);
  452.   Delay(1);
  453.   DrawImage(Rast,^ImF3, 0, 0);
  454.   Delay(1);
  455.   DrawImage(Rast,^ImF2, 0, 0);
  456.   Delay(1);
  457.   DrawImage(Rast,^ImF1, 0, 0);
  458.   Delay(3);
  459.  end;
  460.  
  461. Procedure LeftRight;
  462.  begin
  463.   for count := 1 to 2 do begin
  464.    DrawImage(Rast,^ImStraight, 0, 0);
  465.    Delay(3);
  466.    DrawImage(Rast,^ImRight, 0, 0);
  467.    Delay(30);
  468.    DrawImage(Rast,^ImStraight, 0, 0);
  469.    Delay(6);
  470.    DrawImage(Rast,^ImLeft, 0, 0);
  471.    Delay(30);
  472.    DrawImage(Rast,^ImStraight, 0, 0);
  473.    Delay(3)
  474.   end;
  475. end;
  476.  
  477. Procedure GoToSleep;
  478.  Begin
  479.   DrawImage(Rast,^ImF1, 0, 0);
  480.   Delay(2);
  481.   DrawImage(Rast,^ImF2, 0, 0);
  482.   Delay(2);
  483.   DrawImage(Rast,^ImF3, 0, 0);
  484.   Delay(2);
  485.   DrawImage(Rast,^ImF4, 0, 0);
  486.   Delay(10);
  487. end;
  488.  
  489. Procedure Effect;
  490.  begin
  491.   SameImage := 0;
  492.   bool := WindowToFront(Win);
  493.   LeftRight;
  494.   GoToSleep;
  495.   CurImage := FindWhere;
  496.   while(CurCoOrd = PrevCoOrd) do begin
  497.    Delay(10);
  498.    CurImage := FindWhere;
  499.    Inc(SameImage);
  500.    if (SameImage = 150) then begin
  501.     LeftRight;
  502.     SameImage := 0;
  503.     ShowImage;
  504.     Delay(25);
  505.     GoToSleep;
  506.    end;
  507.   end;
  508.   DrawImage(Rast,^ImF3, 0, 0);
  509.   Delay(2);
  510.   DrawImage(Rast,^ImF2, 0, 0);
  511.   Delay(2);
  512.   DrawImage(Rast,^ImF1, 0, 0);
  513.   Delay(2);
  514. end;
  515.  
  516. Begin
  517.   PrevCoOrd := 0;
  518.   PRG:=Intuitext(1,0,0,0,0,Nil  ,'   FollowMouse',Nil);
  519.   Name:=Intuitext(1,0,0,0,10,Nil,'By Kamran Karimi',^PRG);
  520.  
  521.   { reserve memory: } { 2 = "MEMF_CHIP" }
  522.   Straight:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  523.   Squaint:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  524.   Up:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  525.   Down:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  526.   Left:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  527.   Right:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  528.   RU:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  529.   RD:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  530.   LU:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  531.   LD:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  532.   F1:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  533.   F2:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  534.   F3:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  535.   F4:=Ptr( Alloc_Mem(SizeOf(Plane), 2) );
  536.  
  537.   if(Squaint=nil) or (Up=Nil) or (Down=Nil) or (Right=Nil) or (Left=Nil)
  538.    or (LU=Nil) or (LD=Nil) or (RU=Nil) or (RD=Nil) or (F1=Nil)
  539.    or (F2=Nil) or (F3=Nil) or (F4=Nil) or (Straight=Nil)then goto EndIt;
  540.  
  541.   Initialize;
  542.  
  543.   Old:=SetTaskPri(FindTask(NIL),-2);
  544.   Randomize;
  545.   x1 := Random(400) + 80;
  546.   y1 := Random(140) + 20;
  547.   Wind:=NewWindow(x1,y1,150,35,0,1,0,WINDOWDRAG,
  548.                    Nil,Nil,'FollowMouse',Nil,Nil,0,0,0,0,WBENCHSCREEN);
  549.   Win:=OpenWindow(^Wind);
  550.   if (Win = Nil) then goto EndIt;
  551.   Rast:=Win^.RPort;
  552.   PrintItext(Rast,^Name,10,12);
  553.   Delay(150);
  554.   CloseWindow(Win);
  555.  
  556.   Wind:=NewWindow(x1,y1,50,13,0,0,MOUSEBUTTONS,WINDOWDRAG or RMBTRAP,
  557.                       Nil,Nil,'FM',Nil,Nil,0,0,0,0,WBENCHSCREEN);
  558.   Win:=OpenWindow(^Wind);
  559.   if (Win = Nil) then goto Endit;
  560.  
  561.   Rast:=Win^.RPort;
  562.  
  563.   while (True) do  {This is the main loop}
  564.   begin
  565.   Mes1 := Get_Msg(Win^.UserPort);
  566.   if(Mes1 <> Nil) then begin
  567.    Sec1 := Mes1^.Seconds;
  568.    Mic1 := Mes1^.Micros;
  569.   end;
  570.   Mes2 := Get_Msg(Win^.UserPort);
  571.   if(Mes2 <> Nil) then begin
  572.    Sec2 := Mes2^.Seconds;
  573.    Mic2 := Mes2^.Micros;
  574.   end;
  575.   if((Mes1 <> Nil) and (Mes2 <> Nil)) then begin
  576.    if(DoubleClick(Sec1,Mic1,Sec2,Mic2)) then begin
  577.     x1 := SetTaskPri(FindTask(NIL),Old);
  578.     goto EndIt;
  579.    end;
  580.   end;
  581.   if(Mes1 <> Nil) then Reply_Msg(Mes1);
  582.   if(Mes2 <> Nil) then Reply_Msg(Mes2);
  583.   CurImage := FindWhere;
  584.   ShowImage;
  585.   Delay(3);
  586.   if (CurCoOrd = PrevCoOrd) then Inc(SameImage)
  587.   else begin
  588.    PrevCoOrd := CurCoOrd;
  589.    SameImage := 0;
  590.   end;
  591.   if(SameImage = 180) then begin
  592.    Effect;
  593.    SameImage := 0;
  594.   end;
  595.   R := Random(40);
  596.   if R>38 then Blink;
  597.   end;
  598.  
  599. EndIt:
  600.  Reply_Msg(Mes1);
  601.  Reply_Msg(Mes2);
  602.  repeat
  603.   Mes1 := Get_Msg(Win^.UserPort);
  604.   if (Mes1 <> Nil) then Reply_Msg(Mes1);
  605.  until (Mes1 = Nil);
  606.  CloseWindow(Win); 
  607. End.
  608.  
  609.